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Foreword TIM HARTNELL 


Clive Gifford is an adventure nut. From the early, crude ZX81 adventures 
which came on the market, to the highly-sophisticated Level 9 and Scott 
Adams’ software you can get today for a host of machines, Clive has played 
his way through a hundred or more adventures, gaining considerable skill in 
the process. 


It wasn’t just all play. Along the way, Clive managed to write a number of 
adventure books, which showed his growing prowess in the genre. From the 
Interface Publications’ books Creating Adventures on your Dragon 32 and 
Creating Adventures on your Commodore 64, through to the Virgin Books’ 
Adventures for your Spectrum and More Adventures for your Spectrum, Clive 
has been developing and extending his adventure-writing skills. 


In this book, easily his strongest work to date, Clive shares with you the 
exciting program Pentacle which actually allows you to create and run your 
own adventure programs on the Amstrad, without having to go tothe trouble 
of actually writing the program yourself. Think up the locations and the 
story-line, and Pentacle takes over all the boring bits of writing the program. 


He then shows you Pentacle in action to create an adventure set in medieval 
times, Castle of Doom. 


Then, the graphical potential of the Amstrad gets a real workout with The 
Search for SPECK. 


Time to go adventuring... 


Tim Hartnell, 
London, April 1985 


Tim Hartnell is one of the most widely-published computer authors 
in the world. His books include Games BBC Computers Play 
(Addison-Wesley, 1982); Tim Hartnell’s QL Handbook (Interface 
Publications Ltd., 1984); Creating Adventure Programs on your 
Microcomputer (Ballantine, US, 1984); and The Personal 
Computer Handbook (Virgin Books, 1984). He is managing 
director of the specialist publishing house Interface Publications 
Ltd., and writes the regular column Response Frame for Your 
Computer magazine, as well as conbributing to ZX Computing, 
Your Spectrum and Microscope. 


Pentacle 


Pentacle is an adventure creator that allows you to create complex adventures 
of up to 12 locations with 15@ objects, 46 monsters, 49 readable messages 
and a whole host of tricks and puzzles which the adventure player must solve. 
The great thing about Pentacle is that you need little or no programming 
knowledge or particular skill to create your adventure. 


How does Pentacle work? You simply type in your adventure information, as 
prompted by the computer. Your Amstrad stores this information, placing it 
into an adventure framework, thus creating the adventure program. 


The whole idea, as I’m sure you can appreciate, is a complicated one to © 
program. The greatest problem is allowing for as much flexibility as possible, 
so that you can create an adventure that is pretty original. Working against 
flexibility is the need for a fully running, user-friendly program which allows 
the data to be typed in and easily stored and retrieved. All of this had to be 
achieved in BASIC and the whole program should allow the creation of both 
tiny, simple adventures as well as complex monsters that could take ages 
to solve. 


I have included the data to play a small adventure in the standard, medieval 
mould, entitled, Castle of Doom. 

FD REM 4646-96 36-96-9696 36 4-4 3-46 EE SE IE HE EE EE HE 

10 REM*+%%%%*#*xPENTACL E 3-46-4646 

V1 PREM 26-46-96 96 96-96-9696 96-96-96 36 96 96-3 6 SE HE 3 EE 

20 CLEAR 

3@ GOSUB 3888 

40 PH=18:GOSUB 3940 

5@ REM*#*#*+MENL 444% 

6@ BORDER 1: INK 1,24: INK @,1 

7@ CLS 

8@ MODE 1 

90 PRINT " ADVENTURE CRE 

A T O R" 
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11@ PRINT <:PRINT ” INPUT DATA 
PRESS 1" 

128 PRINT :PRINT ” PLAY ADVENTURE 
PRESS 2" 

13@ PRINT =:PRINT " SAVE DATA 
PRESS 3" 

14@ PRINT :PRINT " LOAD DATA 
PRESS 4" 

15@ PRINT :PRINT ” PRINT DATA 
PRESS 5" 

160 PRINT: PRINT ” MEMORISE DATA 
PRESS 6" 


17@ FOR T=1 TO 22000: A¢=INKEYS: IF AS<>"" 
THEN T=22008 

180 NEXT 

198 IF VAL (A$)>7 OR VAL (A#)<1 THEN GOTO 

170 

200 SOUND 1,180,100 

210 ON VAL(AS) GOTO 220, 1220,3190,3390,4 
140,45708 

2280 REM*#**X INPUT DATA *# 

230 IF OB(1,1)<>@ THEN GOSUB 3880 

248 CLS 

25@ PRINT TAB(7);"LOCATION DESIGN" 

260 PRINT TAB(7) ; °===============" 

270 PRINT 

280 INPUT "PLEASE TYPE IN THE ADVENTURE 

TITLE" 5; MG# (3) 

298 CLS 

300 INPUT “HOW MANY LOCATIONS (max 120)" 
3N 

310 IF N>ize OR N<1 THEN 3200 
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320 FOR T=1 TON 

330 PRINT: PRINT 

34@ PRINT "ENTER NAME/DESCRIPTION OF LOC 

ATION";T 

358 INPUT " "sL$(T) 

368 NEXT 

370 PRINT:PRINT: INPUT "TO GO BACK TO THE 
MENU ENTER 999"5A 

380 IF A=999 THEN GOTO 40 

398 FOR T=1 TON 

400 CLS 

410 PRINT:PRINT " "sL$(T) 

420 IF LEN(L$(T))>32 THEN PRINT LEFTS (MS 
»32):GOTO 448 

430 PRINT " "sLEFT$ (M$,LEN(L$(T) ) 
) 

440 FOR X=1 TO 6 

450 PRINT "IF YOU GO ";MID$(DD$, (X*5)-4, 
5): INPUT"WHICH LOCATION WILL YOU REACH"; 

L(T,X) 

460 NEXT 

470 PRINT 

480 INPUT "IF THE PLAYER USES A MAGIC CO 

MMAND HERE WHERE WILL HE END UP";L(T,7) 
490 PRINT. 

500 INPUT "IF THE PLAYER RUNS OR JUMPS A 
T THIS LOCATION, WHERE WILL HE END U 
P"sL(T,8) 

510 NEXT T 

5270 REME#X#4XXHHQOBIJECTSHHRREREEE 

530 CLS 
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540 PRINT TAB(16); "OBJECTS" 

55@ PRINT TAB(16) 5; "=======" 

56@ PRINT 

570 INPUT "HOW MANY OBJECTS IN THIS ADVE 

NTURE (max 15@) ";0M 

580 IF OM>15@ THEN 570 

59@ FOR T=1 TO OM 

600 CLS 

610 PRINT: INPUT "NAME OF OBJECT"; 0B#(T) 

620 PRINT: INPUT "THE OBJECT’S ORIGINAL L 

OCATION";0B(T,1) 

630 PRINT: INPUT "THE OBJECT’S WEIGHT (in 
roughly pound units) ";OB(T,2) 

640 INPUT "IS THE OBJECT IMPOSSIBLE TO D 

ROP ONCE TAKEN (1), ONLY POSSIBLE TO F 

IND USING SEARCH/EXAMINE (2) (@= NEITHE 

R OF THESE) ";0B(T,3) 

650 PRINT: INPUT "IS THE OBJECT; A WEAPON 
(2)5 A TREASURE (3)5; AN UNLOCKING DEVIC 

E (4) (@=NONE OF THESE) ";0B(T,4) 

660 NEXT 

670 REM*#*##*MONSTER GENERAT ION##*+* 

68@ CLS 

698 PRINT TAB(7); "MONSTER GENERATION" 

70@ PRINT TAB(7) 5 “==S================" 


71@ PRINT 
720 INPUT "HOW MANY ‘BADDIES’ IN YOUR AD 
VENTURE (max 40) ";BM 


730 IF BM>4@ THEN 720° 
740 FOR T=1 TO BM 
75@ PRINT:PRINT "NAME OF ENEMY, FOLLOWED 
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ITS POSITION AND ITS STRENGTH (1-50) 


INPUT MO#(T) 

INPUT MOC(T,1): INPUT " "53MO(T,2) 
NEXT 

REM*##**LOCKED/UNLOCKED DOORS#*#++« 
CLS 

PRINT TAB(7)5;"OPEN AND CLOSED DOORS" 
PRINT TAB(7) 5; °=====================" 
PRINT,,," TYPE 999 FOR NO DOORS" 
PRINT: PRINT 

INPUT "LOCKED DOOR BETWEEN "5L 

IF L=999 THEN 970 

INPUT "AND"5LL 

PRINT L#(L) 

INPUT "WHICH DIRECTION IS THE LOCKED 


DOOR (N=1,S=2,E=3,W=4,U=5,D=6) "3D 


900 
910 
928 


IF D>é& OR D<1 THEN 890 
PRINT:SPRINT L#(LL) 
INPUT "WHICH DIRECTION IS THE LOCKED 


DOOR (N=1 etc.)"5;DD 


930 
940 
958 
ORE 
968 


IF DD>6 OR DD<1 THEN 920 
L(L,D)=-LL:L(LL.,DD)=—-L 

PRINT:PRINT: INPUT "DO YOU WANT ANY M 
DOORS (Y/N) ";A¢ 

IF LEFT#(AS,1)="Y" THEN GOTO 840 
REM###HHEHHAEGAME RULES 246-6626 

CLS 

PRINT TAB(8);"GAME RULES AND PUZZLES 


100@ PRINT TAB (8) 5 "====SS===SSS==S=S=SS>= 


1016 PRINT:PRINT 
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1020 INPUT "ENTER THE STARTING STRENGTH 


(WHICH IS 


ONLY USED IN COMBAT) "3ST 


103@ PRINT: IF ST<1 THEN ST=10000 


1040 CS=ST 


1050 INPUT "MAXIMUM WEIGHT PLAYER CAN CA 


RRY"; MW 


1060 IF MW<1i THEN MW=1000 


107@ PRINT: INPUT 


"ENTER MESSAGE WHEN PLA 


YER ASKS FOR HELP"; MG (1) 


1080 PRINT: INPUT 


“THE NUMBER OBJECT REQU 


IRED TO ALLOW THE PLAYER TO SEARCH/EXAMI 


NE (@=NO OBJECT 
1299 PRINT: INPUT 


NECESSARY) ";S0 
"MAXIMUM NUMBER OF MOVE 


S"sMM: IF MM<1 THEN MM=10000 


110@ PRINT: INPUT 
D";MG$(2) 


1120 PRINT: INPUT 

YOU NEED BEFORE 
1130 PRINT: INPUT 
YOU HAVE KILLED 

WM 

1140 PRINT: INPUT 

MUST YOU BE AT 

L 

1150 FRINT: INPUT 
TO KNOW OF THE 
E 

1160 T=1 

1170 PRINT: INPUT 


"ENTER THE MAGIC COMMAN 


"HOW MANY TREASURES DO 
YOU HAVE WON "5WT 

"HOW MANY MONSTERS MUST 
BEFORE YOU HAVE WON "5 


"WHICH NUMBER LOCATION 
BEFORE YOU HAVE WON"; W 


"DO YOU WANT THE PLAYER 
EXITS (1=Yes, @=No) "; 


"ENTER READABLE MESSAGE 


Amstrad PENTACLE 


14 


FOLLOWED BY NO. OF ITS LOCATION (ENTER 
"999° IF NO MESSAGE) ";A¢ 


1180 
1198 
1200 
1218 
12208 
1230 


1248 
1258 
1260 
12708 
1280 
1298 
1308 
1310 
1326 
1330 


IF AS="999" THEN RM=T:GOTO 48 
R# (T)=A¢: INPUT R(T) 
T=T+1:GOTO 1178 

GOTO 40 

REM##*#*PLAY ADVENTURE #**+* 
ST=CS: P=1:MV=1 


REM##*#*MAIN ADVENTURE GAME *+*++* 

CLS 

S=INT ( (4@—-LEN (MG# (3) ))/2) 

PRINT TAB(S) s;MG# (3) 

PRINT:PRINT 

PRINT "YOU ARE "3;L9(P) 

PRINT: PRINT 

IF E<>1 THEN GOTO 1370 

PRINT "VISIBLE EXITS ARE "5 

FOR T=1 TO 6:IF L(P,T)>@ THEN PRINT 


MID# (DDS, (T#5)-4,5) 5 


13408 
13508 
1360 
1270 
1380 
1398 


IF T<3 THEN PRINT " "5 

NEXT T 

PRINT: PRINT 

PRINT "YOU CAN SEE:"; 

FOR T=i1 TO OM 

IF OB(T,1)=P AND OB(T,3)<>2 THEN PR 


INT TAB(14) ;0B¢(T) 


1480 
1410 
1428 
14308 


NEXT T 

PRINT: PRINT 

REM#*##HAZARDS * x 

IF MV>MM THEN PRINT “YOU TOOK TOO L 


ONG BUDDY":FOR T=1 TO 2@0@@:NEXT:GOTO 381 
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1440 IF (L(P,1)=@ AND L(P,2)=@8 AND L(P,S 
»=@ AND L(P,4)=@ AND L(P,5)=@ AND L(P,6) 
=@ AND L(P,8)=@) AND (L(P,7)=@ OR (L(P,7 
)>@ AND RND>@.8)) THEN 3810 

1450 MF=0:FOR T=1 TO BM 

146@ IF MO(T,1)=P THEN PRINT MOS(T)3" AT 
TACKS... ":MF=1:FM=T: T=BM 

1470 NEXT 


1480 MT=@:FOR T=1 TO OM 

1490 IF OB(T,1)=P OR OB(T,1)=@8 AND OB(T, 
4)=3 THEN MT=MT+1 

15@@ NEXT 

1510 FOR T=1 TO BM 

1520 IF MOC(T,1)=-1 THEN MT=MT+1 

1530 NEXT 

1540 IF MT>=(WT+WM) AND P=WL THEN GOTO 3 
710 

1550 ES=""sC$=""iNS="" 


156@ LOCATE 1,15: INPUT " WHAT NOW ";C#:E 
$=C$ 

157@ PRINT: PRINT: MV=MV+1 

158@ FOR T=1 TO LEN(E$):IF MID#(ES,T,1)= 
" " THEN C#=LEFT# (E#,T—-1) s:NS=RIGHT$S (ES, ¢ 
LEN(E#)—-T)):T=LEN (ES) 

1590 NEXT: CV=0 

1600 IF C#=MG#(2) THEN 3050 

1618 FOR T=1 TO 35 

1620 IF C$=FS(T) THEN CV=T: T=35 

1630 NEXT 

1640 IF MF=1 AND (CV<17 GR CV>2@) AND CV 
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<>34 AND CV<>35 THEN PRINT "NO YOU MUST 
STAY AND FIGHT":ST=ST-5:GOTO 1790 

165@ IF CV=35 THEN GOTO 48 

1668 IF CV>12 THEN GOTO 17808 

1670 IF CV=@ THEN PRINT "I CAN‘’T "3C#3" 
"SN¢:GOTO 1798 

168@ PRINT:PRINT 

1698 SOUND 1,18@0:PP=0 


1700 IF LEFT#(C$,1)="N" AND L(P,1)>@ THE 
N P=L(P,1):PP=1 
1710 IF LEFT#(C$,1)="S" AND L(P,2)>@ THE 
N P=L(P,2):PP=1 
1720 IF LEFT$(C$,1)="E" AND L(P,3)>@ THE 
N P=L(P,3):PP=1 
1730 IF LEFT#(C#,1)="W" AND L(P,4)>@ THE 
N P=L(P,4):PP=1 
1740 IF LEFT#(C#,1)="U" AND L(P,5)>@ THE 
N P=L(P,5):PP=1 
1750 IF LEFT#(C#,1)="D" AND L(P,6)>@ THE 
N P=L(P,6):PP=1 


1760 IF PP=1 THEN PP=@:PRINT " MOVING NO 
Wctuad ie ":FOR T=200 TO 6@ STEP -2@:SOUN 
D 1,T:NEXT T:GOTO 1240 

1778 PRINT "CANNOT MOVE THAT WAY":GOTO 1 
798 

1780 ON CV-12 GOSUB 1810,1810,1920,1920, 
2008 , 2000, 2000, 2000, 2090, 2230, 2370, 2430, 
2490, 2560, 2560, 2630, 2630, 2780, 2700, 2810, 
2968, 2968 

1790 SOUND 1,18@:WHILE INKEY$="":WEND 
1890 GOTO 1240 
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1810 REM 44 TAKE / GE Tee RH 
1820 OV=0 

1830 FOR T=1 TO OM: IF' OB#(T)=N% THEN OV= 
T: T=OM 

1840 NEXT 

1850 IF OV=@ THEN PRINT "NO SUCH OBJECT 
HERE I’M AFRAID": RETURN 

1868 IF OB(OV,1)=@ THEN PRINT "YOU ALREA 
DY HAVE IT!"sRETURN 


1870 IF OB(OV,2) >MW THEN PRINT "IMPOSSIB 
LE TO CARRY":GOTO 1898 

1880 IF OB(OV,2)>(MW-WC) THEN PRINT "TOO 
HEAVY, AT THE MOMENT": RETURN 

1890 IF OB(OV,1)=P AND OB(OV,2)< (MW-WC) 
THEN OB(OV,1)=@:WC=WC+0B(OV,2):PRINT "O. 
K. THAT'S TAKEN" 

19@@ IF OB(OV,4)=1 THEN KC=1 

1910 RETURN 


1920 REM 44463%2*# DROP /LEAVE 444440 
1930 OV=0 

1940 FOR T=1 TO OM: IF OBS(T)=N% THEN OV= 
T: T=0OM 

195@ NEXT 

1960 IF OV=@ THEN PRINT "NO SUCH OBJECT 
TO LEAVE, I’M AFRAID": RETURN 

1970 IF OB(OV,3)=1 THEN PRINT "YOU CANNO 
T DROP IT":RETURN 

1988 IF OB(OV,1)<>@ THEN PRINT "YOU ARE 
NOT CARRYING THAT OBJECT": RETURN 

1990 OB(OV,1)=P:PRINT “YOU'VE DROPPED ": 
PRINT OB$ (OV) : WC=WC—OB (OV, 2) s RETURN 
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2000 REM****«F IGHT/KILL/ATTACK/HIT#*#* 

2018 CLS:PRINT:PRINT " LET THE BATTLE 
COMMENCE...." 

202@ SOUND 1,200,60:SOUND 1,400,60:SOUND 
1,300,608 

2030 FOR T=1 TO OM: IF OB(T,1)=@ AND OB(T 
34)=2 THEN MO(FM,2)=INT¢ (MO(FM,2) ) /2) 

20408 NEXT 

2058 ST=ST-MO(FM, 2) 

2060 MO(FM,1)=—1 

2078 IF ST<1 THEN PRINT "YOU ARE EXHAUST 

ED...YOU HAVE BEEN DEFEATED IN BAT 

TLE":FOR T=1 TO 2800:NEXT:GOTO 3810 


a s 
i Ce : 
Se (li rhe & 
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20880 PRINT:PRINT " YOU ARE THE V 
ICTOR" : RETURN 

2O9G REM 4% EE HHHLINEL OCK CHEER EEE 

2100 K=0 

2110 FOR T=1 TO OM: IF OB(T,1)=@8 AND OB(T 
34)=4 THEN K=1 

2120 NEXT:LD=0 

2130 IF K<>1 THEN PRINT "YOU HAVE NO UNL 
OCKING DEVICE": RETURN 

2140 IF LEFT#(N$,1)="N" AND L(P,1)<@ THE 
N L(P,1)=ABS(L(P,1)):sLD=1 

2150 IF LEFT#(N$,2)="S" AND L(P,2)<@ THE 

N L(P,2)=ABS(L(P,2)):LD=1 

2160 IF LEFT#(N$,3)="E" AND L(P,3)<@ THE 

N L(P,3) =ABS(L(P,3))=sLD=1 

2170 IF LEFT#(N$,4)="W" AND L(P,4)<@ THE 

N L(P,4)=ABS(L(P,4))sLD=1 

2180 IF LEFTS(N#,5)="U" AND L(P,5)<@ THE 
N L(P,5S) =ABS(L(P,5))sLD=1 

2190 IF LEFT#(N#,6)="D" AND L(P,6)<@ THE 
N L(P,6)=ABS(L(P,6))sLD=1 

2200 IF LD=1 THEN PRINT "THE DOOR SLOWLY 
OPENS..." 

2210 IF LD=1 THEN FOR T=850 TO 300 STEP- 
1@:SOUND 1,T,2:SOUND 1,0,2:NEXT T:RETURN 
2220 PRINT “THERE’S NO LOCKED DOOR NEARB 
Y": RETURN 

Z2SO REM 6-166 9H HHL OK 1 HH HH HE EH 

2240 K=0 

22506 FOR T=1 TO OM: IF OB(T,1)=@ AND OB(T 
34)=4 THEN K=1 

2260 NEXT:LD=@ 
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2270 IF K<>1 THEN PRINT 
KING DEVICE": RETURN 
2280 IF LEFT#S(N#,1)="N" 
N L(P,1)=-L(P,1):LD=1 
2298 IF LEFT#(N$,2)="S" 
N L(P,2)=-L(P,2):LD=1 
2300 IF LEFT#(N#,3)="E" 
N L(P,3)=-L(P,3):LD=1 
2310 IF LEFT#(N%,4)="W" 
N L(P,4)=—-L(P,4):LD=1 
2320 IF LEFT#(N$,5)="U" 
N L(P,5)=-L(P,5) :LD=1 
2330 IF LEFT#(N#,6)="D" 
N L(P,6)=-L(P,6)sLD=1 
2340 IF LD=1 THEN PRINT 
CLOSES..." 


"YOU HAVE NO 


AND L(P,1)>0 


AND L(P,2) >8 


AND L(P,3) >@ 


AND L(P,4) >0 


AND L(P,5)>0 


AND L(P,6)>@ 


LOC 


THE 


THE 


THE 


THE 


THE 


THE 


“THE DOOR SLOWLY 


2350 IF LD=1 THEN FOR T=200 TO 850 STEP 


-1@:SOUND 1,7T,2:SOUND 1,0,2:NEXT T: RETURN 


2368 PRINT "THERE’S NO UNLOCKED DOOR NEA 


RBY": RETURN 


2Z37B REM HEHEHE EHEWA I THREE REHENE 


2380 LOCATE 1,18 
2398 PRINT "WAITING" 


2400 FOR T=1 TO 5000: NEXT 


2410 MV=MV+5 
2420 RETURN 


PASO REM 233 HHH HHEL PE HH EEE 


2440 PEN 2 

2450 PRINT MG#(1) 
2460 SOUND 1,400,460 
247@ PEN 1 

2480 RETURN 
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PAID REMHXE KEE HEHE KEREAD HEHE KEREREREE 

2008 JJ=0 

251@ FOR T=1 TO 48 

25280 IF P=R(T) THEN PRINT TAB(1@) 5; "MESSA 

GE READS...":PRINT:PRINT R#(7T):T=40: JJ=1 

2930 NEXT 

2540 IF JJ<>1 THEN PRINT "THERE IS NOTHI 

NG TO READ" 

25998 RETURN 

25460 REM####*«*SEARCH/EXAMINE ## #4 

2570 IF SO=@ THEN 2598 

2580 IF OB(SO0O,1)<>@ THEN PRINT "YOU NEED 
SOMETHING ELSE": RETURN 

2598 FOR T=1 TO OM: IF OB(T,1)=P AND OB(T 
;2)=2 THEN OB(T,3)=@:PRINT "YOU CAN SEE 


SOMETHING NEW...":PX=1:T=0OM 

2600 NEXT 

2610 IF PX=1 THEN PX=@ ELSE PRINT "YOU H 
AVE FOUND NOTHING IN YOUR LONG SEARC 


H"sMV=MV+5 
26208 RETURN 
2630 REM***###xxQUIT/FINISHRRRKHR 
2648 PRINT " DO YOU REALLY WANT TO QUI 
T?" 
2650 PRINT " sssssa" 
2668 PRINT: INPUT "YES OR NO";A$ 
2678 IF LEFT$(A$,1)="Y" THEN INK @,@: INK 

1,1:PRINT:FOR T=2@ TO S@@:INK 1,INT(T/2 
@):PRINT "COWARD! !":NEXT:GOTO 40 
2680 PRINT "I THOUGHT YOU WANTED TO CARR 
Y ON THAT'S WHY I GAVE YOU ANOTHER CHANC 
e" 
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26980 RETURN 

2700 REM*##*#**LIST/ INVENTORY ¥*x%#* 
2718 CLS 

2720 PRINT TAB(1@)5"LIST/ INVENTORY" 
2738 PRINT TAB(1@) ; "—------—--------— © 
2740 PRINT:PRINT:PRINT 

2750 DV=0 

2766 FOR T=1 TO OM 


2770 IF OB(T,1)=@ THEN DV=DV+1:FRINT DV; 


PRINT TAB(S) ; OBS (T) 
2780 NEXT T 


2790 PRINT:PRINT " PRESS A KEY TO 


RETURN" 

2800 WHILE INKEY$="":WEND: RETURN 
2810 REM % 46269644 SCORE 16901 IE 
2820 SC=0 


2830 FOR T=1 TO Ns IF L(T,8)=1 THEN SC=SC 


+5+INT(T/10)40.5 
2840 NEXT T 


2850 FOR T=1 TO OM:IF OB(T,1)=@ THEN SC= 


SC+2: IF OB(T,4)=3 THEN SC=SC+15 
2860 NEXT T 

2870 FOR T=1 TO BM 

2880 IF MO(T,1)=-1 THEN SC=SC+12 
2890 NEXT T 


27OO PRINT "\N\NNNANANANNNNANNANNNAANAANNA 


NNNNNNNANAAN 

29710 PRINT "SCORE SO FAR: "3;S5C 
2920 PRINT "MINUS MOVES: "3;MV 
29730 PRINT "EQUALS...";SC-—MV 


294@ PRINTSPRINT "“S////////11/1111141S4T 


SISTA SAAT ATS SST 
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2950 FOR T=1 TO 200@:NEXT: RETURN 

2960 REM¥*#*** JUMP X#ee 

2970 IF L(P,8)=@ AND C$="RUN" THEN PRINT 
"NOWHERE TO RUN TO":RETURN 

2980 IF L(P,8)>@ AND C$="RUN" THEN PRINT 
“RUNNING NOW": ST=ST-5S:MV=MV+8: RETURN 

2990 IF L(P,8)=@ THEN PRINT "THERE IS NO 

WHERE TO JUMP TO":RETURN 

3000 IF L(P,8)>@ THEN P=L(P,8):PRINT "JU 

MPING NOW" 

3010 FOR SD=14@ TO 6@ STEP-28:SOUND 1,SD 
,20,15:NEXT 

3020 FOR SD=68 TO 14@ STEP 2@:SOUND 1,SD 
»20,15:NEXT 

3030 ST=ST-5:MV=MV+10 

304@ RETURN 

3050 REM*****xMAGIC COMMAND**%*+*+ 

3060 IF L(P,7)<1 OR L(P,7)=P THEN PRINT 
"THE COMMAND HAS NO EFFECT, YOU HAVE 
WASTED TIME HERE":GOTO 1799 

3070 BORDER 24,6 

3080 CLS 

2090 INK 3,2,7:PEN 3:INK 0,26 

3100 P=L(P,7) 

3118 FOR T=18@ TO 6@ STEP-2:SOUND 1,T,1, 
15: NEXT 

312@ LOCATE 11,10:PRINT "THE MAGIC WORKS 


3130 LOCATE 6,12:PRINT "YOU ARE MYSTICAL 
LY TRANSPORTED" 

2140 LOCATE 12,13:PRINT "TO ANOTHER PLAC 
eE" 
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31508 
3168 
3178 
31808 
3198 
3208 
3218 
3220 
3230 
5248 
3258 
3268 
32708 


3288 


FOR T=1 TO 1000:NEXT T 

PEN 1:BORDER 1:INK @,1 

GOTO 1799 

FRE M296 36 26 HE 6 2 EH HE HEE HE FE FE HE FE IEE HEHE HE IE HE HEHE EE HEE EE 
REM*#***xSAVE DATAK### 

CLS:LOCATE 4,10 

INPUT "FILE NAME ";Y$ 

PEN 3 

ERASE L$¢,L,OR¢,0B,MO$,MO,R¢,R 
PRINT:PRINT:PRINT TAB(5S)s 

OPENOUT Y# 

PRINT #9,N,0M,BM,RM 

FOR T=1 TO N:PRINT #9,K$(T):NEXT T 
FOR T=1 TO N:FOR X=1 TO 8:PRINT #9, 


K(T,X) sNEXTs NEXT 


3290 
3300 


FOR T=1 TO OM:PRINT #9,NA$(T) s NEXT 
FOR T=1 TO OM:FOR X=1 TO 4:PRINT #9 


sNACT,X) = NEXT: NEXT 


33108 
3320 


T #9, 


33208 
33408 
3350 
3368 
33708 
33808 
3398 
3400 
34108 


FOR T=1 TO BM:PRINT #9,LN¢(T) =NEXT 
FOR T=1 TO BM:PRINT #9,LN(T,1):PRIN 
LN(T,2) sNEXT 

FOR T=1 TO RM:PRINT #9,@Q% (1) :NEXT 
FOR T=1 TO RM:PRINT #9,Q(T) :NEXT 
PRINT #9,CS;MW:SO;MM;WL;WT;WM;E 

FOR T=1 TO 3:PRINT #9,MG%(T) :NEXT 
CLOSEOUT 

PEN 1:GOTO 40 

REM*¥***LOAD DATAx**x 

CLS:LOCATE 1,11 

INPUT "HAVE THE USELESS ARRAYS BEEN 


ERASED? Y/N"; AS 
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3420 
34308 
3446 
3450 
3460 
3470 
3488 


3538 
3548 
3550 
3560 
3578 
3580 
3598 
3600 
36108 
3620 
3630 
3668 
3678 
3680 
3698 
3780 
3718 
3728 


IF LEFTS(A$,1)="Y" THEN 3440 
ERASE L$#,L,0B¢,0B,MO#,MO,R$,R 


Xt= oo n8 
OPENIN X# 
INPUT #9,N,0M,BM,RM 
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FOR T=1 TO Nz INPUT #9,K$(T) NEXT 
FOR T=1 TO N:FOR X=1 TO S:INPUT #9, 
K (T,X) s NEXT: NEXT 
3490 FOR T=1 TO OM: INPUT #9,NA$(T) sNEXT 
3500 FOR T=t TO OM:FOR X=1 TO 4: INPUT #9 
yNA (T,X) s NEXT: NEXT 
35109 FOR T=1 TO BM: INPUT #9,LN$(T) sNEXT 
2520 FOR T=1 TO BM: INPUT #9,LN(T,1)= INPU 
T #9,LN(T,2) sNEXT 
FOR T=1 TO RM: INPUT #9,Q%(T) :NEXT 
FOR T=1 TO RM: INPUT #9,Q(T):NEXT 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


REM#*####* PLAYER WINS ++ 


CLS 


#9 ,CS: GOSUB 
#9, MW: GOSUB 
#9,S0:GOSUB 
#9 ,MM: GOSUB 
#9 ,,WL: GOSUB 
#9 ,WT: GOSUB 
#9,,WM: GOSUB 


3690 
3690 
3698 
3698 
3698 
3690 
3698 


#9,E:GOSUB 3498 
FOR T=1 TO 3: INPUT #9,MG#(T) : NEXT 
CLOSEIN 

PH=@0:GOSUB 3910 
GOTO 40 

IF EOF=-1 THEN CLOSEIN: GOTO 3670 
RETURN 
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3738 
3748 
3750 
3768 
3778 
3788 
3798 
3800 
3810 
3820 
3836 


3840 
3850 


3860 
38708 
3880 
3B98 


@,4), 


3908 
3918 


@,4), 


23928 


LOCATE 14,8 

PRINT "WELL DONE!!!" 

LOCATE 13,12 

PRINT "YOU'VE MADE IT" 

LOCATE 7,16 

PRINT "YOU’VE SOLVED THIS ADVENTURE 


BORDER 3,12 

WHILE INKEYS="":WEND:GOTO 40 
REM*###** PLAYER LOSES #***x*x 
FOR T=1 TO 250@:NEXT T 


CLS 

FOR T=1 TO 10:PRINT:NEXT T 

PRINT " YOU FAILED OH PUNY ONE 
BORDER @:SOUND 1,2000,200,15 


WHILE INKEY$="":WEND:GOTO 40 
REM#x**# INITIALISATIONK###* 

DIM K#(12@) ,K(120,8) ,NA$(15@) ,NA(15 
LN (4) ,LN(48,2) ,@% (4) ,@(4@) 

DIM F#(35) 

DIM L#(12@) ,L(120,8) ,OB¢ (150) ,OB(15 
MO# (40) ,MO(4@,2) ,R#(4@) ,R(4@) 
M$="——--—~——-~-—--—_-__--------_--- 


INK 1,24:PEN 1 
DD$="NORTHSOUTHEAST WEST UP DOWN 


RESTORE 

FOR T=1 TO 35 
READ F#(T) 
NEXT T 
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3990 IF PH=18 THEN PH=@: RETURN 
4000 FOR T=1 TO N:L$(T)=K#(T):FOR X=1 TO 
8:L (T,X) =K(T,X) NEXT: NEXT 

4010 FOR T=1 TO OM: OB$(T)=NA$(T):FOR X=1 
TO 4:0B(T,X)=NA(T,X) NEXT: NEXT 

4020 FOR T=1 TO BM:MO#(T)=LN¢(T) MO(T,1) 
=LN(T,1):MO(T,2)=LN(T,2) sNEXT 

4030 T=1 

4040 WHILE Q(T)>@ 

4050 R(T) =Q(7) = R$(T) =O$ (7) 

4060 T=T+1 


4070 WEND 
4080 RETURN 

4090 DATA NORTH,N,SOUTH,S,EAST,E,WEST,W, 
UP,U,DOWN,D 

4108 DATA TAKE,GET,DROP,LEAVE,FIGHT,ATTA 
CK, KILL,HIT 

411@ DATA UNLOCK,LOCK,WAIT,HELP,READ 
4120 DATA EXAMINE,SEARCH,QUIT,FINISH 
4130 DATA LIST, INVENTORY, SCORE, JUMP,RUN, 
MENU 

4140 REM*****PRINTOUT DATAx#### 

4150 CLS 

4160 PRINT TAB(15)3; "PRINT DATA" 

417@ PRINT TAB(15) 3 "s==se=====" 

4180 LOCATE 12,12 

4190 INK 1,1,24:PRINT "PRINTING NOW" 
4200 GOSUB 4540 

4210 PRINT #8,TAB(1@); "ADVENTURE DATA" 
4220 GOSUB 4540 

4230 PRINT #8,MG$(3) 

4240 GOSUB 4548 
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4250 FOR T=1 TO N:PRINT #8,L$(T) sNEXT 
4260 GOSUB 4540 

4270 FOR T=1 TO N:PRINT #8,73;") "3:FOR X 
=1 TO 8:PRINT #8,L(T,X)3:NEXT:PRINT #8," 

"sNEXT 

4282 GOSUB 4540 

4290 FOR T=1 TO OM:PRINT #8,0B¢(T) sNEXT 
a 

4300 GOSUB 4540 

4310 FOR T=1 TO OM:FOR X=1 TO 4:PRINT #8 


,OB(T,X)3"  "32NEXTsPRINT #8," ":NEXT 
4320 GOSUB 4548 
4330 FOR T=1 TO BM:PRINT #8,MOS(T);" = "5 


MO(T, 1) 3MO(T, 2) sNEXT 

4340 GOSUB 4540 

4350 T=1 

4360 WHILE R(T) >a 

4370 PRINT #8,R$(T)3" 9 "sR(T) 

4380 T=T+1 

4390 WEND 

4400 GOSUB 4540 

4410 PRINT #8,"COMBAT STRENGTH ";CS 
4420 PRINT #8,"MAXIMUM CARRIED WEIGHT "; 
Mw 

4430 PRINT #8,"HELP REPLY :— "3;MG$(1) 
4440 PRINT #8,"NUMBER OBJECT NEEDED FOR 
SEARCH ";S0 

4450 PRINT #8,"MAXIMUM NUMBER OF PLAYER 
MOVES ";MM 

4460 PRINT #8,"MAGIC COMMAND: ";MG%(2) 
4470 INK 1,24 

4480 PRINT #8,"WINNING LOCATION "3;WL 
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4498 PRINT #8,"TREASURES NEEDED "3;WT 
4500 PRINT #8,"MONSTERS SLAIN "3;WM 

451@ PRINT #8," " 

4520 IF E=1 THEN PRINT #8,"PLAYER SEES E 
XITS" ELSE PRINT #8,"PLAYER DOESN’T SEE 
EXITS" 

4530 GOTO 40 

4540 REM*#**#**xPRINTER BLANKS#*#*4% 

4550 PRINT #8," ":PRINT #8," “ 


456@ RETURN 

4570 REMX#*#*#*MEMORISE DATA «+2 

4580 REM*#* (TRANSFER DATA TO SPARE ARRAYS 
> ee 

4590 FOR T=1 TO N:K#(T)=L#(T):FOR X=1 TO 
B:K (T,X) =L (T,X) sNEXT:NEXT 


4600 FOR T=1 TO OM: NA#(T)=OBS(T):FOR X=1 
TO 4:NA(T,X)=OB(T,X) sNEXT: NEXT 

461@ FOR T=1 TO BM: LN¢ (T) =MO#(T)=LN(T,1) 
=MO0(T,1)2LN(T,2)=MO(T,2) NEXT 

4620 T=1 


4630 WHILE R(T) >@ 
4640 Q(T) =R(T) :Q¢(T) =R#(T) 
4650 T=T+1:WEND 


4660 CLS:LOCATE 18,12:PRINT "O.K." 
4670 PH=18 
4680 GOTO 40 
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Instructions for Pentacle 


(1) Start the program by running it. If, at any time, you have an error or 
break the program, you can usually continue without any loss of data by 
typing GOTO 49. 


(2) The menu appears. The usual procedure for creating an adventure is (1) 
Input Data; (6) Memorise Data; (2) Play Adventure (to check for errors); 
(3) Save Data. Whenever you are entering data, once you have finished 
and have returned to the menu, a/ways immediately choose the sixth 
option which allows the data to be transferred to a separate set of arrays. 


(3) Inputting data is going to be the first option you use. This section has 
been designed to be simple to use. It is worth writing down all the data 
beforehand, planning it out and then typing it into the computer. To 
prepare for ‘yes/no’ questions, enter 8 for no, and the required number 
for the other answers. 


(4) In the game rules data section, if you don’t want combat strength, 
maximum weight, maximum moves, object required for search, the 
number of treasures needed before you have won or the number of 
monsters killed before you have won to take a part in the game, then 
enter @ for each one. 


(5) The terms ‘monsters’ and ‘treasures’ should be interpreted widely, if you 
wish to get as much flexibility as possible from this program. Treasures 
can be anything that needs to be collected in the adventure, such as the 
pieces of a broken computer or the six missing people in a blazing 
building. 


(6) The ‘magic’ command, when used in the right location, transports the 
player to another room at a cost of a few moves and a couple of strength 
points. 


(7) Take note when you are entering the object names in, the computer will 
only accept the fu// object name. This means that if you enter the object 
name as ‘A glittering, golden orb, the size of a human hand, encrusted 
with diamonds, sapphires, emeralds and many other jewels’ then that is 
the name you would have to type in when playing the adventure, as in 
TAKE A glittering, golden orb etc. 


(8) The commands to play the adventure are pretty straightforward. They 
are listed between lines 4999 and 4139. 
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(9) To win the adventure you must fulfil the three winning conditions of the 
number of monsters killed, the correct number of treasures, and being 
present in the correct winning location (held in the variable, WL). 


(19) You can lose in several ways. Firstly, you can run out of moves (when 
your MV value exceeds your MM value). If your combat strength is 
reduced to below zero, then you are finished and must start again. The 
third way to lose the game is to find yourself in a location with no way 
out. If you are in a location with only the magic command providing an 
exit, then the computer allows you a couple of goes at getting out, andif 
it is obvious that you do not know the magic command or you don’t have 
your wits about you to realise that you are stuck in a place with no 
normal exits, then it finishes you off. 


(11) When locking and unlocking doors, the command is entered in the 
format ‘UNLOCK N’ or ‘LOCK SOUTH’. 


(12) You may want to edit the data once you’ve played the game. Due to 
memory constraints (at one point I found I only had eight bytes left, 
hardly enough to run the cassette buffer!) there is no program editor. 
What you can do is break the program and then directly enter the 
changed item of data. From looking at the program, you can see that the 
main arrays and variables are: 


L$(n) the location name array 

L(x,y) the location map data 

OB$(n) the object name array 

OB(x,y) the object characteristics 

MO3(n) the monster name array 

MO(x,y) the monster attribute data 

R$(n) the messages array 

R(n) each messages position 

N the number of locations 

BM the number of monsters 

OM the number of objects 

P the original starting position for the player 

MG3(1) the answer given by the computer when the player 
asks for help. 

MG$(2) the magic command 

MG{§(3) the title of the adventure 


(13) When you want to save the adventure on tape, press option 3 on the 
menu, type in the file name you wish the program to be saved as, and the 
computer will direct you from that point. 
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(14) If you want to load the data back immediately after saving it, then the 
load option is chosen (option 4). Answer Y to the question, ‘Have the 
useless arrays been erased?’. If you are loading a set of data that you have 
had on tape before this run, then answer N to the question. This ensures 
that the surplus arrays are erased, thus releasing enough memory for the 
cassette buffer to work as well as leaving enough memory for string 
handling. 


(15) As regards saving and loading files, I find I have somewhere around 98% 
success. Data files seem to be more susceptible to loading problems than 
normal programs. Always save a completed set of data on two different 
tapes. That way, if you have any problems with one tape (from little sister 
using it as a frisbee, to magnetic interference caused by leaving the 
cassette too near a T.V.) then you still have one in reserve. 


Finally, I hope you have a lot of fun with this program and as a result find that 
you are able to write better adventures at the end of using it. Please feel free to 
fiddle around with the program, changing the available commands and the 
like to suit your own needs. I would be very interested to hear of any 
modifications or improvements that you make to my program or to receive 
copies of adventures written using Pentacle. Please write to me care of 
Interface Publications. 
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Castle of Doom 


Here’s the data for the Castle of Doom adventure. 


Westart with the fifteen location names depicting a castle and assorted ‘nasty’ 
places: 


ON THE DRAWBRIDGE 

BY THE FORTCULLIS 

IN THE SLIME-FILLED MOAT 
IN THE GREAT HALL 

ON THE BATTLEMENTS 

IN THE KITCHENS 


iy 
SRT Ry hd 
rad OES 59 
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IN A SECRET PASSAGEWAY 
IN A DARK CAVE 
STUCK IN THE CAVE SYSTEM 


IN 
IN 
IN 
IN 
IN 
IN 


From this we move to the map data for the adventure. Note that a minus sign 
signifies a locked door. You can either enter the data as it is, including the -13 
and -1@ and leave the section dealing with locked and unlocked doors, or you 
can type 8 for the two minus values and then enter the values in the 


THE CASTLE DUNGEONS 
A SNAKE-INFESTED PIT 
THE TORTURE CHAMBER 
THE LIBRARY 

THE BANQUET ROOM 

THE GREAT TOWER 


locked/unlocked door section. 


NOON GU PF WN He 
Se 


Ce ee ee ee ee 
ot Wn & B 


8S swua 
8 se Ww 
8S sun 
“oss w 
®o 8 88 
8 ss 8 
Nv se 88 


14 6 12 860 4 8 3 
4 4 14 86 10 @ 7 @ 
6 8 9 8 @ 6 @ 
9 11 #11 10 12 060 0 11 
60666860860 86 7 @ 


-13 2 7 @ & 18 @ @ 


) 
>» @©@ 6BO8sBBBHa zB 
» 13 11 10 3 7086 8 @ 
) 

) 

) 


SeS8etaus 


4 14-10 1 5 8 15 @ 
6 @©@ 86 7 8 @ @ 8 
5 13 8 @ @ 10 @ 3 
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Here is the object name and attribute data: 


RUSTY SWORD 

BAG OF GOLD 
SHINING AMULET 
GLEAMING SAPPHIRE 
RARE BOOK 

STRING OF PEARLS 
WOODEN CLUB 


Az 
| th 
SS x) 


S 


< 

s 

an 
Xs 


—_— 


N 
a 
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KEY 
OAKEN SEAL 
GOBLET STICKY WITH MEAD 


2 12 a 2 
8 15 2 3 
9 2 1) 3 
12 1 a x 
is 7 a 3 
14 4 2 3 
12 25 a 2 
4 3 2 4 

7 8 @ a 

b 9 1 a 


The final data consists of the monster section, the message data (please excuse 
the puns) and the game rules (such as the magic command and the maximum 
number of moves). 


AN OLD KNIGHT 2 17 
A HIDEOUS OGRE 10 25 
THE GUARDIAN 15 45 


GO WEST YOUNG MAN 1 
NORTH DOOR SHHH! 18 
DESSERT MENU: BAT PIE AND I SCREAM 6 


COMBAT STRENGTH 75 

MAXIMUM CARRIED WEIGHT 30 

HELP REPLY :— YOU ARE ON YOUR OWN 
NUMBER OBJECT NEEDED FOR SEARCH 3 


MAXIMUM NUMBER OF PLAYER MOVES 500 
38 


MAGIC COMMAND: FPENTACLE 
WINNING LOCATION 15 
TREASURES NEEDED 5 
MONSTERS SLAIN 3 


PLAYER SEES EXITS 
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The Search for SPECK 


Having graphics in adventures is a matter of taste. There is a large group of 
people who prefer their adventures to be text, and only text. They argue that 
graphics are often slow, undetailed and do not help develop the adventure’s 


plot. The large amounts of memory that they consume could be used for more 
text-described locations, puzzles and objects, they say. 


I tend to agree with them, but I can’t dismiss the impact of programs like The 
Hobbit and Valhalla, which utilised graphics to a great and, indeed, 
favourable extent. Much of the impact of the Hobbit stems from its graphics. 
Whatever your feeling about graphics, they are often found in adventure 
games. 


This adventure is purely a graphical one, set in space. You must find, collect 
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and bring home a ‘Socio-Political Economic Collection Kapsule’ that has 
strayed off its orbit. The capsule is of great importance as it is collecting data 
about the enemy planet’s current life status (hence the title for the capsule). 


You must search through the twenty-five sectors trying to avoid quasers, 
meteor storms and aliens. If your power holds out and you find the stricken 
capsule, then you must bring it back to ground safely. This is achieved by 
landing your vessel like a lunar lander, using thrust to slow your speed and 
reaching a height of less than 18 Kloms and an eventual velocity of less than 
eight parsecs. 


Good luck Captain, keep your wits about you and conserve fuel where 
you can, 


10° THE SEARCH FOR SPECK 
20° 

30 GOSUB 1862 

4@ GOSUB 870 

5@ CLS 

60 PAPER #1,3:PEN #1,2:PEN #2,1 

70 ' 

B80 ° MAIN LOOP 

90° 

100 AA=A 

110 WINDOW #2,6,35,22,25 

12@ WINDOW #1,5,36,21,25 

130 INK @,@:INK 1,@:BORDER 13:INK 2,9:IN 
K 3,13 

14@ IF S(A)=3 OR S(A)=4 THEN 170 

150 FOR T=1 TO 200:PLOT INT(RND#439)+1,1 
NT (RND*3Q@) +100, 1:NEXT 

16@ FOR T=2@0 TO 8@ STEP-2:SOUND 1,T,1:N 
EXT T 

170 ON S(A) GOSUB 1038,1030,1160,1290,15 
20,1620 
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180 PRINT #2,"SECTOR: "5;A;" POWER: "5ST 
190 PRINT #2, "SCAN: ";P$(S(A)) 

200 PRINT #2," " 

218 IF S(A)=5 THEN PRINT #2," PREPARE T 
QO LAND":WHILE INKEY$=""sWEND: GOTO 470 
220 INPUT #2," WARP TO SECTOR: "5A 

230 IF A>25 OR A<1 THEN 220 

248 M=ABS (AA-A) 

258 ST=ST-—(M*#100) 

268 IF ST<1 THEN 380 

270 ° 

286 WARP 

298 ° 

300 MODE 8 

310 FOR T=1 TO 100 

320 PLOT 320,200 

330 DRAW INT (RND#639) +1, INT (RND#¥399) +1, 1 
NT (RND#13) +1 

340 NEXT 

35@ MODE 1 


368 GOTO 80 
370 ° 
380 ° LOSE 
390 ° 
490 FOR T=1 TO 150@:NEXT 
41@ CLS: INK 1,11:PEN 1:INK @,0,24 
420 LOCATE 11,1@:PRINT "YOU’RE ATOMISED! 
i 
430 SOUND 4,3000,500,15,1,1 
440 FOR T=1 TO 40@0:NEXT T 
450 INK @,@:END 
460 
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478 ° THE LANDING 

488 ° 

496 CLS 

5@@ INK 2,9: INK 1,26 

510 A=—-35-INT (RND*60) 

520 B=1600+INT (RND*380) 

530 IF ST>40@@ THEN C=(ST/10) ELSE C=250 
+INT (RND*60) 

54@ CLS #1:CLS #2 

550 PRINT #2,"HEIGHT: "5B; "KLOMS" 

560 PRINT #2,"VELOCITY: "3A; "PARSECS” 
570 PRINT #2,"FUEL:"5C5; "UNITS" 


580 DRAWR —642,0,8 
590 IF B<9@@ THEN Z=INT (4@Q0-(B/3) ) sPLOT 
1,Z:DRAWR 640,0,2 
600 INPUT #2,"ENTER THRUST"; T 
610 IF T<@ THEN T= 
620 IF T>C THEN T= 
630 C=C-T: B=B+A+ (T-5) /2 
640 A=A+( (T-5) /2) -INT (RND#4) s A=INT (A) 
650 IF C<1 THEN CLS #2:PRINT #2," ":PRIN 
T #2," OUT OF FUEL...":GOTO 380 
660 IF (B<1@ AND ABS(A)>8) OR B<-1 THEN 
380 
670 IF B<i@ AND ABS(A)<8B THEN 720 
688 GOTO 540 
698 ° 
700 ° SUCCESS 
710 ' 
728 CLS 
73@ LOCATE 12,12 
740 PRINT "CONGRATULATIONS" 
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750 PRINT: PRINT 

768 PRINT “YOUR COMMANDER IS MOST PLEASE 
D WITH YOU" 

77@ PRINT:PRINT " YOU HAVE BEEN GIVEN 
A PROMOTION" 

780 FOR H=1 TO 2 

790 RESTORE 84a 

8@0 FOR T=1 TO 25 

810 READ G 

820 SOUND 4,G6*2,21,15,1 

830 NEXT: NEXT:END 

849 DATA 60,53,47,45,60,0,45,47,45,48,53 
,0,53,47,45,36,40,40,45,45,47,53,47,40 
850 END 

860 

870 ‘ INITIALISATION 

=J=1") 

890 A=1:RANDOMIZE TIME 


980 ST=9000@:MODE 1 

910 SYMBOL AFTER 230 

926 SYMBOL 231,198,118,126,27,252,126,63 
304 

930 DIM S(25) ,P$(6) 

940 RESTORE 940 

950 FOR T=1 TO 25:READ S(T) :NEXT 

960 DATA 1,6,4,2,1,6,4,2,35,2,5,1,2,5,1,4 
96g 25 S925 25 455,1,4 

970 FOR T=1 TO 6:READ P#(T) =: NEXT 

980 DATA "Nothing but space debris"”","All1 
Cclear","Meteor Storm" 

998 DATA "QUASAR ahead","Stranded capsul 
e", "ALIENS!!!" 


Amstrad PENTACLE 


1000 J=INT (RND*8) +14:S(J)=5 
1010 RETURN 


1020 

1036 ° GRAPHICS 
1040 

1050 ° CLEAR SFACE 
1068 


1070 INK 1,26 
1080 PEN 3:FOR T=1 TO S:LOCATE INT (RND#3 
9) +1, INT (RND*#2@0)+1: PRINT CHR (238) : NEXT 


1090 PEN 2:LOCATE INT (RND*39) +1, INT (RND* 
20)+1:sPRINT CHR#(181) 

1100 PEN 1:LOCATE INT (RND*¥39) +1, INT (RND* 
20)+1:PRINT CHR#(176) 

1110 PEN 2 

1120 IF S(K)=5 THEN LOCATE 12,10:FRINT C 
HR (214) ;CHR#(215) sLOCATE 12,11:PRINT CH 
R$ (213) 5 CHR# (212) 
1130 CLS #1:CLS #2 

114@ RETURN 

1150 ° 

1160 ° 

1170 ° METEOR STORM 

1180 ° 

1198 ST=ST-5S00 

1200 INK 2,7:PEN 2 

1210 FOR T=1 TO 70 

1220 LOCATE INT (RND#39) +1, INT (RND#19) +1 
123@ PRINT CHR$ (231) 

1240 SOUND 1, INT (RND#150@) +400,15,15 
1258 NEXT 

1260 INK 1,26 


1270 CLS #1:CLS #2 
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1280 
1290 
1300 
1310 
13206 
1330 
1348 
1350 


1368 
1378 
1380 
jee 

1398 
1400 
1410 
1420 
1430 
1440 
),2 

14508 
1468 
1478 
1480 
-3,2 
1498 
1500 
1518 
1520 
1530 
1540 
1550 


RETURN 
QUASARS 


ST=ST-1008 
INK 1,26 

INK 2,24:PEN 2 

FOR V=15@ TO 2 STEP -40 


FOR L=1 TO 260 STEP 4 
DEG 
PLOT 320+ (V¥1.5) *#COS(L) ,2494+V#SIN(L 


NEXT: NEXT 
INK 2,24,0 
FOR R=25 TO 2 STEP -6 


FOR T=1 TO 36@ STEP 6 

DEG 

PLOT 320+ (R¥1.5) *COS(T) ,249+R*SIN(T 
NEXT: NEXT 

CLS #1:CLS #2 

FOR T=1@0@ TO 250 STEP 1 

SOUND 1,7,2:SOUND 1,7+3,2:SOUND 1,T 
NEXT 

INK 2,24 

RETURN 


e 


*" STRANDED CAPSULE 


INK 1,26 
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1560 LOCATE 12,10:PRINT CHR¢ (214) ;CHRS(2 
15) sLOCATE 12,11:PRINT CHR$(213) ;CHR#(21 
2) 

1570 FOR T=20@ TO @@ STEF -20 

158@ SOUND 1,T 

1590 NEXT 

16@@ CLS #1:CLS #2 

161@ RETURN 


1620 ° 
1620 ‘ ALIENS! 
14640 ° 
1658 ST=ST-6000 
1660 RESTORE 1770 
1670 INK 2,7,11 
1680 PEN 2 
1698 CLS #1:CLS #2 
1700 FOR X=1 TO 19:FOR Y=1 TO 19 
1710 READ X,Y 
1720 LOCATE X,Y 
1730 PRINT "3@<" 
174@ NEXT: NEXT 
1758 LOCATE 19,10 
1768 PEN 1:PRINT CHR (154) ;CHR$(225);CHR 
$(154) 
177 DATA 4,3,16,3, 22,3435 4355956,19,6,38 
16 
1780 DATA 14,8,24,8,14,12,24,12,9,14,29, 
14 
1790 DATA 17,16,21,16,4,17,35,17,11,18,2 
7,18,19,19 
1800 INK 1,2 
1810 ENT -1,20,4,1,20,-4,1 
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1820 SOUND 1,168,400,15,@,1 
1830 FOR T=1 TO 3@0@:NEXT T 
1840 RETURN 


1850 ° 

1840 ° INSTRUCTIONS 

1876 ‘ 

1880 CLS 

1890 PRINT TAB(46);"THE SEARCH FOR S.P.E. 
c.K" 

1900 PRINT:PRINT:PRINT " The vitally im 
portant surveillance of Andromeda Six 


hinges on the efforts of a special cap 


sule collecting data about the planet 
“s Socio-Economic and Political status 
1910 PRINT:PRINT " Unfortunately, the 
capsule has strayed from its orbit 
and has gone missing. You must find 
the capsule by warping around the sec 
tors and checking your scanner." 
192@ PRINT:PRINT " Once found, the ca 
psule must be carefully brought to g 
round, so a perfect landing is req 
uired." 
1930 PRINT:PRINT " If you manage to res 
cue the S.P.E.C.K. (Socio-Political—Econo 
mic Collection Kapsule), you will be 
amply rewarded." 
1940 PRINT:PRINT " GOoD 
LUC K" 


1950 WHILE INKEY#="":WEND: RETURN 


Leaked! 


A top secret report containing information that could seriously embarrass the 
government has gone missing. The P.M. has sent for you personally. You are 
a respected backbencher and have the time to try and find the report drawing 
as little attention to yourself or your task as possible. 


You must get yourself a contact that may divulge the holders of the report. 
Exactly where from, no one knows, but what is certain is that if you don’t find 
the report in the month allotted to you, then your chances of a place in the 
Cabinet are nil. 


Wander around Whitehall, check for news at your private office, hear the 
debates in the Chamber or go to your appointed select committee. Whatever 
you do, you must recover the missing file before it is leaked to the media. 


A knowledge of political institutions is needed in this adventure but not to 
any great degree and you will pick up much of the game simply by playing it a 
number of times. It’s not a very common topic for adventure games but one 
which I think is most suitable. I was looking forward to writing an adventure 
with political characters in as well as institutions but I didn’t want to ruin my 
chances of a place on the New Year’s Honours List, so I came up with this 
program which dispenses with normal adventure input and instead offers a 
number of action choices which you select by pressing the appropriate 
numeric key. 


LQ FE M4- 4 6 6 HE HE HE HE HE EEE HE HE HE HEE 
20 REM#* 44% LEAKED ! ° 244 
TD RE M96 96 96 96 9H HE FEE HE EEE HE HE EE HE EH 
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40 GOSUB 542 

5@ REM***#*+COMMAND LOOP *+#«+*« 

6@ MV=MV+1:3 IF MV>3@ THEN PRINT "YOU TOOK 
TOO LONG...THE REPORT HAS BEEN LEAKED... 
-YOUR POLITICAL CAREER IS OVER.":END 

78 GOSUB 148 

BQ GOSUB 400 

90 IF F=15 THEN 188 


10@ GOSUB 310 

110 IF P=-1 THEN P=S5:PRINT:PRINT "The co 

rrespondent mentions that a memberof the 
Select Committee dealing with thematter 
may have information but points out th 
at all favours in politics are recipr 

Oocal":WHILE INKEY$="":WEND 

120 R(MV)=PP 

13@ GOTO 5a 

140 TX=@:FOR T=1 TO MV: IF R(T)=10 THEN T 
X=1 

15@ NEXT 

160 IF TX=1 AND R(MV-1)=11 AND P=9 THEN 
P=15 

170 RETURN 

180 REM*#*#*##REPORT HELD 4% 

19@ PRINT:PRINT "DO YOU 1: Give details 
to the serious press” 


200 PRINT:PRINT " 2: Carefully exp 
lain the matter to the PLP” 

210 PRINT:PRINT " 3: Meet Permanen 
t Secretary of dept. where leak occurr 


ed u 
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220 PRINT:sPRINT " 4: Take the matt 
er to the P.M. directly" 
230 PRINT:PRINT “ 33 Explain your 


findings to the chairman of the 1922 co 
mmittee" 

240 PRINT:sPRINT:PRINT " ENTER YOUR DEC 
ISION AND QUICKLY" 

200 INPUT L 

260 IF L=INT(109.564/49) THEN PRINT "WHA 
T THE OPPOSITION? ARE YOU MAD?":P=16 

278 IF L=INT(40@/96) THEN P=17 

280 IF L=CINT((9@@#PI)/45@0)-5S) OR L=(371 
78/12390) OR L=(20*-1)#18@8 THEN P=16 

298 FOR T=1 TO 13@0@:NEXT T 

300 GOTO 50 

310 REM*##*#*#*DECISION MAKING# #4 

320 REMH##2#2*X AND RESULTS * #444 Ee 

320 PP=P 

340 CS=INKEYS 

350 IF C$="" THEN 348 

360 IF C$<>"1" AND C$<>"2" THEN SOUND 1, 
2806:GOTO 3408 

370 IF C$="1" THEN P=A(P) 

380 IF C$="2" THEN P=B(P) 

390 RETURN 

400 REM##x##«xSCREEN HANDLING#*#4% 

410 MODE 1:CLS:INK 1,@: INK @,26:INK 2,6, 
26: INK 3,11,26 

420 PRINT: PRINT TAB(16); “LEAKED!” 

43@ SPEED INK 70,10 

440 PRINT TAB(164) 5 "=======" 
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450 PRINT:PRINT:PRINT 

468 PRINT S#(P) 

478 IF P=15 THEN RETURN 

480 IF P>15 THEN END 

490 PRINT:PEN 2:PRINT "DO YOU: 1)" 
500 PRINT A#(P) 


51@ PRINT:PEN 3:PRINT "OR: 2)" 

520 PRINT BS(P) 

53@ PEN 1 

548 PRINT:PRINT ">>>>>>>>>>>MAKE YOUR CH 
OICE<S << hhh 


95@ PRINT:RETURN 

560 REM###e##*# INITIAL ISAT ION #444 

370 DIM R(4@) ,S#$(17) ,A$(17) ,AC17) ,BS (17) 
3B8(17) 

580 P=1 

590 FOR T=1 TO 17 

600 READ S(T) ,AS(T) ,ACT) ,B#(T) ,B(T) 

610 NEXT 

620 MV=0 

63@ RETURN 

640 REM#HHHHHHHEXDATA BASE 42696-42646 

65@ REM 

668 REM 1 

67@ DATA "In the lobby at Westminster"”," 
hurry into the Chamber",6,"wait around f 
or a few moments",2 

68@ REM 

698 REM 2 

700 DATA "A scruffy pressure ‘groupie’ a 
pproaches you","ignore him, his group ar 
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e rather extreme",1,"talk to him and acc 

ept an invitation to speak at a meeting 

tomorrow" ,S 

710 REM 

720 REM 3 

730 DATA "You’re at a meeting of the pre 

ssure group","make your speech and 1 
eave",8,"look around for some help",4 

740 REM 

750 REM 4 

760 DATA “That course of action yielded 

no help atall.What’s your next move","go 
back to the Chamber",6,"go to your priv 

ate office",8 

770 REM 

780 REM ra) 

798 DATA "In the Select committee, a mem 

ber seems desperate to press for clause 
17 to be deleted, the majority of the c 

ommittee seem against him" 

8@0 DATA "side with the majority, clause 
17 was rather controversial",6,"side 

with the individual M.P. and struggle 

to get the clause through",10 

810 REM 

820 REM 6 

830 DATA "You are seated in the chamber, 
a debate is taking place on a controver 
sial issue","stay and listen",7,"discuss 
the matter with the minister" ,4 

840 REM 
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850 REM 7 

868 DATA "The debate has ended, voting h 
as begun","vote aye",13,"vote nay",12 
870 REM 

880 REM 8 

890 DATA "You are at your office, severa 
1 invitations are lying in your ‘IN’ tra 
y", "Accept the offer to appear on a lead 
ing current affairs program to boost you 
andyour party’s flagging image",14 

900 DATA "go to the cocktail party hoste 
d by your party’s national committee",11 
910 REM 

920 REM 9 

938 DATA "You are wandering through them 
aze of Whitehall corridors","explain 
to a passing civil servant your reasons 
for being there and ask the way to your 
contact ’s office",146,"Give up, you'll ne 
ver find his office”",8 

940 REM 

950 REM 10 

960 DATA "The grateful M.P. gives you de 
tails of the one person who can help"," 
return to the lobby",1,"visit Whitehall" 
7 

970 REM 

980 REM 11 

9986 DATA “At the cocktail party there ar 
e a large number of honoured guests incl 
uding manyleading ministers, the P.M. an 
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d a coupleof Permanent Secretaries. 

1000 DATA "discuss with them, how far yo 

u have got being careful to check that n 
Oo one over-hears",16 

1010 DATA "Have a chat with one of the P 
ermanent Secretary’s assistants over t 
he strange and often confusing layout of 
Whitehall" ,9 

1020 REM 

1030 REM 12 

1040 DATA "Your surprising vote against 

the party line in yesterday’s major deb 


ate has caused some interest. One of 
the most influential lobby corresponde 
nts has come to talk to you" 


10450 DATA "explain that you felt it was 

an issue ofconscience and that you are s 

olidly behind all other party polici 

es",13 

1066 DATA “explain in the strictest conf 
idence the situation the government is i 

n and does he know of any ‘sources’ of i 

nformation" ,—-1 

1070 REM 

108@ REM 13 

1098 DATA "While dining with three Shado 
w ministersin St.Stevens tavern, the sub 
ject of leakages comes up",”"continue 
and mention your problem",16,"State that 
you've never had to deal withsuch a pro 
blem",1 
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110@ REM 

111@ REM 14 

1120 DATA "You are on the chat show and 
are asked the question, ‘How are your r 
esearches into the missing Heathcliffe 
report going?’" 

1130 DATA "reply, ‘no comment’",16,"repl 
y, ‘I’m sorry Robin, I didn’t know that 
any reports were missing. I think you 

should check your sources’",4 

1140 REM 

115@ REM 15 

116@ DATA "You now have the leaked repor 
t and the source of the leakage" ,08,0,0, 
i) 

117@ REM 

118@ REM 16 

1198 DATA "You have brought too much att 
ention to yourself and your activites. 
The P.M. isnot pleased with you...your c 
hances of apromotion are hiynly unlikely 


",9,8,0,0 

1200 REM 

1210 REM 17 

1220 DATA "You have made the right decis 
ions and your handling of this whole a 
ffair has brought you much credit withi 
n the party. You are given a place 

in the Cabinet...your political futu 


re seems tobe assured.",@,80,2,0 


Creating Your Own 


Writing adventures is as much fun, if not more, than p/aying adventures. In 
addition to the fun derived, it is a very good way of improving your 
programming. It is not as difficult as you may think, and in these pages I will 
try to give a few helpful hints on writing a good adventure game. 


There are two basic sides to writing an adventure, and both must be planned 
for. The plot, the setting of the adventure, the type of creatures, objects and 
puzzles and the commands at your disposal all add up to what can be 
conveniently called the story board. The second part is the actual program- 
ming of the adventure, to put the story board into a running program. 


Let’s deal with the story board first. It is best to work out your plot first. This 
-eally consists of deciding what must the player do to win the adventure along 
with the setting and location for the adventure. In these areas, you should use 
your imagination as much as possible. 


There are too many adventures based on the familiar concepts of fighting 
nedieval monsters and looking for a missing princess. If you want to write a 
z00d adventure today, then you must add some novel elements to the plot. 


Computer Adventure 

As a humble debugging program, you must search around for the bugs that 
>xist in the computer’s operating system. 

The Day After the Night Before 

You had rather a good party at your house last night, too good as you hold 
your aching head. Your parents are coming home today and the place is in 
a shambles. Can you get your home looking spick and span and so avoid 
Ncurring your parents’ wrath? 

The Ten Tasks of Hercules 

You must try to emulate Hercules by taking on ten extremely arduous and 


aear-impossible tasks. Your only problem is what tasks. You must keep 
yourself in prime condition while always being on the look-out for another of 
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the ten tasks to complete. You’ve got ten weeks before the gods check your 
progress. 


These adventure ideas are all a little more novel than the classic styles of 
undersea treasure exploration or blood and thunder monster battling. 


Puzzles 


Moving on from the plot, one must determine the numbers and the nature of 
the puzzles and the objects and commands needed to solve them. More than 
any other thing, the puzzles make the adventure. You must decide upon the 
complexity of the adventure and construct your puzzles accordingly. 


One way of writing puzzles that fit in well with your adventure plot is to split 
the puzzles and situations into two distinct types. There is one type which 
must be solved for the adventure to be completed, while the second group are 
additional puzzles adding to the realism of the adventure or its complexity. 
The player is not told which puzzles fit into which categories, making his or 
her task harder. You can stick carefully to your plot for the major puzzles, 
and then include as many of the incidental problems as memory or time allow. 


Obviously, the commands needed and the objects available will be largely 
determined by the puzzles in your adventure. As with the puzzles, it is worth 
having some definite ‘red herrings’ which can trick the player. Below is a small 
example story board to show you how the principles already mentioned can 
be put into practice. 


Underground Plague 


Setting: 
The London Underground and selected London tourist spots. 


Plot: 
Giant rats are breeding in the underground system, they are carriers of the 
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bubonic plague and are slowly gathering in numbers before they come to the 
surface to attack London. 


Locations: 

Easily derived from the plot; take a look at a London underground map and 
throw in famous tourist spots such as Marble Arch, Buckingham Palace and 
the Tower of London. 


Puzzles that need to be solved: 
Find the rats’ hiding place. Find something to eliminate them with, and do it 
in time. 


Puzzles that add realism etc: 
Darkness in the underground tunnels; oncoming tube trains; electric lines. 


Objects: 
Torch; wirecutters; insulated gloves; vaccine; rat-gun (a red herring); 
flamethrower (the real weapon). 


Programming 


Once you have got your story board, you have to put it into program form. 
The exact way in which you do this varies with each programmer’s preference 
as much as the story board varies but there are some essential points that are 
worth keeping in mind. Grammar and proper spelling are essential. It is 
foolish to spend a lot of time writing an adventure only to find that you have 
left spelling mistakes in. Always check out spelling with a dictionary if you are 
not sure. 


Presentation is also important. Before someone really gets involved in an 
adventure, their first impression is largely derived from the screen layout and 
tidiness. Avoid cutting words in two at the end of a screen line. If you have 
spare memory (and unless your adventure is huge, the Amstrad’s ample 43K 
should leave plenty of it spare) add colour and sound effects just to liven 
things up here and there. 


Remember that the game should be fun to play, be quite friendly with the 
comments that the computer makes to the player. A sense of humour is 
appreciated as well. 


Perhaps the most important programming factor that springs to mind is that 
of ‘structuring’. Program structuring with adventure games is essential, it 


61 


Amstrad PENTACLE 


62 


saves memory (very important if you are writing a large adventure), improves 
the efficiency and hence the speed of the adventure and also makes debugging 
an easier task. If you have structured an adventure well, then you should be 
able to return to it several months later and immediately know where each 
section of code is, and what each routine does. 


To structure your program, it is well worth extensively using REM state- 
ments. Looking at my programs, you can see that I’ve tried to use variable 
names that go with their task, such as OB for objects and L for location data. 


With these points in mind, I hope you can now think more seriously about 
writing your own adventure game of quality. 


56 Dynamic Games for the Amstrad! 


Here’s a magnificent collection of fast-moving games from Clive Gifford, 
author of the PENTACLE. You’ll find arcade action, stimulating board 
games, more adventures, challenging adventures, and several programs just 
for fun. Whatever kind of games you want, you’ll get them in this collection. 


Here’s what is in store for you in this £5.95 book: 


CHESS REVERSI GOMUKU- FOUR-IN-A-ROW 
CHECKERS SYNTHER STAR THEME ZAP ENERGISER 
CHOPPER RUSTLE, RUSTLE MUSIC COMPOSER 

MUSIC MAZE CUBE-MASTER- SOLITAIRE  FLIPPA 
ECHO CHAMBER SCRAMBLER REPEAT PONTOON 
DOUBLE DICE BIRD CAGE GRAPHIC CARDS 

UNDER OR OVER ONE-ARMED BANDIT 

CITY OF ATLANTIS EXPLORER CHARACTER GENERATOR 
STEINBERG FILES SNIPER MATCHSTICK MEN 

PITCH ’N’ PUTT NEEDLE IN HAYSTACK ROM BUG 
TRIANGULAR TRACER WINDOW IN/OUT LASER FAN 
LUNATIC PATCHWORKS HUNDREDS AND THOUSANDS 
SUNBURST TRAVELLING TRIANGLES DANGER UXB 
QUACK ATTACK DIAMOND THIEF BOMB CATCH 

BRICK OUT CITY SACRIFICE ATTACK OF THE MUTOIDS 
SURROUND ARNOLD THE ELECTRICIAN 


Buy it where you bought THE AMSTRAD PENTACLE or, in case of 
difficulty, send us the coupon below. We’ll pay the postage. JR 


Interface Publications, 

Dept AP, 

9-11 Kensington High Street, 
London W8 5NP 


Please send me a copy of DYNAMIC GAMES FOR THE AMSTRAD 
by Clive Gifford. I enclose £5.95. 


Name 


Address 
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It’s suddenly very easy to create your own adventures on the 
Amstrad. Just type in the PENTACLE program from this booklet, 
and then follow the simple instructions to create as many exciting, 
hard-to-solve adventures as you like. 


You simply enter the data for your own adventures, and the 
PENTACLE does all the hard work, creating an adventure you can 
save, and even sell (without paying us a penny in royalties!). 


As a bonus, we've also included a full set of data to show 
PENTACLE in use with an adventure set in bygone days, Castle of 
Doom. A change of pace is provided with the full graphical 
adventure, The Search for SPECK. 


Adventuring with your Amstrad will never be the same 
again! 


a 
; : another great book from 


V Interface 


£2.99 
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